FAR QC Analysis

knitr::opts_chunk$set(echo = FALSE, message = FALSE, echo = FALSE, fig.width = 8)

allocation_by_parcel_analysis <- readRDS( "K:\\Projects\\D1\\Features\\Lakeland_AAA_Phase3\\US98\\TOD_Land_Use_Analysis\\allocation_by_parcel_analysis.rds") %>% 
  mutate(base_far = TOT_LVG_AR/parcel_sqft,
         change_far= tod_far - base_far) %>% 
  ms_simplify(keep = .8, keep_shapes = T)

tmap_mode("view")

MyPal <- rpg_color_pal("rpg_colors")(8)

trend_far <- tm_shape(allocation_by_parcel_analysis) + 
  tm_fill("base_far", title = "Trend Scenario<br>FAR Estimate (2045)", style = "fixed", breaks = c(0, .25, .5, 1, 1.5, 3, 7, 10, 15), palette = MyPal) + 
  tm_shape(station_points) + tm_dots(col = "#8400a8") +
  tm_shape(corridor_buffer_half, is.master=T) + tm_borders(col = "#8400a8")+
    tm_shape(station_buffers_no_overlap) + tm_borders(col = "#8400a8")

tod_far <- tm_shape(allocation_by_parcel_analysis) + 
  tm_fill("tod_far", title = "TOD Scenario<br>FAR Estimate (2045)", style = "fixed", breaks = c(0, .25, .5, 1, 1.5, 3, 7, 10, 15), palette = MyPal) + 
  tm_shape(station_points) + tm_dots(col = "#8400a8") +
  tm_shape(corridor_buffer_half, is.master=T) + tm_borders(col = "#8400a8") +
  tm_shape(station_buffers_no_overlap) + tm_borders(col = "#8400a8")
  
tmap_arrange(trend_far, tod_far, sync = TRUE, ncol = 2)